This sample code shows the use of the OpenSubreport Method (Report Object). Modify the following sample code to fit your needs.
Dim test As Integer
Dim crystalreport As CRPEAuto.Report
Dim subrep1 As CRPEAuto.Report
Dim subrep2 As CRPEAuto.Report
Function OpenSubreport(SubreportName As String) As Object
Private Sub OpenSubreport_Click()
'valid subreport
test = 1
Set crystalreport = app.OpenReport(SubReport)
Set subrep1 = crystalreport.OpenSubreport("subauton")
subrep1.Preview
End Sub
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |